home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Utilities / TarChive / UserBack < prev   
Encoding:
Text File  |  1992-08-24  |  7.5 KB  |  241 lines
  1. #! /usr/local/bin/perl
  2. # 
  3. # Object:
  4. #     Users should be able to back up their own files.  Package to do so needs
  5. #     to do the following:
  6. #     1.    Label the tape.  This label controls the access to the tape.
  7. #         E.g. if the tape label is not marked for group to read,  other 
  8. #         users cannot read the tape.  (Writing & reading 
  9. #        currently limited to owners only.)
  10. #     2.    For each user, keep a record what's on that tape.
  11. #     3.    Enable users to append information onto a tape.
  12. #     4.    Keep track of the how much space remains on the tape.  
  13. #    (Not yet implemented)
  14. #     5.    Make it reasonable for users to recover items from a tape.  
  15. #    (Separate Script)(Not yet implemented)
  16. # 
  17. # Algolrithms & methods
  18. #    The backup machine has a registry of tapes, 
  19. #    Users can label a blank tape with the 
  20. #    /usr/local/bin/LabelTape program. 
  21. #    See that script for details.
  22. #
  23. #    Each user has a directory ~/backups, that belongs to root.
  24. #    In that directory, every time a tar file is put on tape, 
  25. #    the package creates a log file with a list of the contents 
  26. #    of the tar file. This makes it easy for users to keep track 
  27. #    of what they have. 
  28.  
  29. #    
  30. #     TapeLibrary sets up the drive, and does a bunch of initialization.
  31.  
  32. require("TapeLibrary.perl");
  33. $BackupType="Private ";
  34.  
  35.  
  36. # Define labels, strings, and so on.
  37.  
  38. @DirList = @ARGV;
  39. if ($DirList[0] eq "-V") {
  40.     print "VERIFY PASS ONLY  NO BACKUPS WILL BE MADE \n\n";
  41.     $VERIFYONLY = true;
  42.     shift @DirList;
  43.     }
  44. $udir = $ENV{HOME};
  45. if ($udir eq "") { print "No home directory.\n"; &Quit;}
  46. $backdir = $udir."/".backups;
  47. $pwd = `pwd`;
  48. chop($pwd);
  49.  
  50. # Check that the user has a directory for log files
  51.     if ( ! -d $backdir ) {
  52.         print "You do not have a directory for logging backup results.\n";
  53.         print "        See your System Administrator.\n";
  54.         &Quit;
  55.         }    
  56.  
  57. #     Check that all the directories asked for actually exist.
  58. #    Will check as an absolute path, relative to current path, 
  59. #   then relative to home directory.
  60.  
  61.     $ok = true;
  62.     print " \n Checking to see that everything you want to  \n";
  63.     print " backup actually exists.  (Humans are such rotten typists...)\n\n";
  64.     foreach $DirList ( @DirList ){
  65.         #print $DirList, "\n";        
  66.         if ( substr($DirList,0,1) eq "/") {
  67.             #print "$DirList is an absolute path \n";
  68.             next;
  69.             }    
  70.         if (-e $DirList ) {
  71.             #print "$DirList is relative to current directory  \n";
  72.             $DirList = $pwd."/".$DirList;
  73.             next;
  74.             }    
  75.         if (-e $udir."/".$DirList){
  76.             #print "$DirList is relative to home directory  \n";
  77.             $DirList = $udir."/".$DirList;
  78.             next;
  79.             }
  80.         else {
  81.             print "Humble Tape Servant is unable to find $DirList\n";
  82.             print "Perhaps the great one has made a tiny typing error.\n\n";
  83.             print "The learned master is reminded that directories \n" ;
  84.             print "must be relative to his home directory,\n" ;
  85.             print "the current directory, or must be absolute paths.\n\n";
  86.             &Quit;
  87.             }
  88.         }    #End while -- All DirList now converted to absolute path names.
  89.  
  90.     #    Now we check that the user owns the directories in question.
  91.     #    He's bumped if he doesn't own the directory.
  92.     
  93.     foreach $DirList ( @DirList ){
  94.         if (! -o $DirList) {
  95.             print "Least worthy servant has discovered that the \n";
  96.             print "directory $DirList exists, but you do not own it.\n";
  97.             print "Must humbly decline making this copy.\n\n";
  98.             &Quit;
  99.             }
  100.         else {
  101.             print "Verified existence & ownership of ", $DirList, "\n";
  102.             }
  103.         }
  104.     print "\n Hit y,Y, or <CR> to proceed, anything else to abort:  ";
  105.     $answer = getc;
  106.     $answer =~ tr/yY\n/Y/;
  107.     if ($answer ne "Y") { &Quit; }
  108.  
  109. #
  110. # =========================
  111. #
  112. #     Read Volume label
  113. #
  114.     $tapelabel=&CheckVolumeLabel($Code);
  115.     print "Tape is labeled $tapelabel\n";
  116. #
  117. #    Check the label
  118.  
  119. #    A series of checks are made.  CheckVolumeLabel tries to read 
  120. #    the first file on the tape.  If that returns blank, or more than a 
  121. #    single line, or a single line that doesn't match with the name of tape, 
  122. #    or a tape name that is not owned by the user, then the user is bumped. 
  123.  
  124.     if ($Code == 100 ) {
  125.         print "Verified that this tape is registered on this server.\n";
  126.         print "Verified that $user owns this tape. \n";
  127.         }
  128.     if ($Code == 101 ) {
  129.           print "Begging forgiveness for rude interuption but this tape has no label.\n";
  130.         print "Humble tar slave is not permitted to write to an unlabeled tape.\n\n";
  131.         &Quit(102);
  132.         }
  133.     if ( ! -e "/usr/local/tapelabels/$tapelabel" ) {
  134.           print "Excuse Interuption, but this label is not registered\n";
  135.         print "Cannot write to unregistered tape.  \n";
  136.         &Quit(101);
  137.         }
  138.     if ( ! -o "/usr/local/tapelabels/$tapelabel" ) {
  139.           print "Most Humble Apologies, but you do appear to own this tape.\n";
  140.         print "Only the Owner can write on a tape.\n";
  141.         &Quit(102);
  142.         }
  143.  
  144. #    Check that the user has a backups directory.  This should be owned
  145. #    by root to prevent users from deleting the log files, which is how
  146. #    we keep track of how many files are on the tape.
  147.  
  148.     chdir $udir; 
  149.     if ( ! -d  $backdir ) {
  150.         print "You don\'t have a backup logging directory";
  151.         print "Logging will fail, and everyone will get confused";
  152.         print "See Y.F.N.S.A. for assistance.";
  153.         &Quit;
  154.         }
  155.  
  156. #        Position the tape to the current end of tape.
  157.  
  158. #        Since Next doesn't implement an mt eom command (shame!)
  159. #    we instead count the number of log files that already refer 
  160. #    to this tape, and space forward appropriately.  This can 
  161. #    cause trouble if the script is aborted during the Verify pass.
  162.  
  163.     $FilesOnTape=`ls -1 ${backdir}/${tapelabel}-* | wc -l`;
  164.     chop($FilesOnTape);    
  165.     $tarnum = $FilesOnTape;
  166.     if     ( $tarnum == "0" ) {
  167.         print "\nNo previous data is registered on this tape.\n";
  168.         print "       Proceeding with backup. \n";
  169.         }
  170.     else{
  171.         print "This tape has $tarnum file(s) on it already.\n"; 
  172.         print "     Moving past these files...\n\n";
  173.         }
  174. #
  175. #    So we move forward the number of backups on the tape + 1 for the tapelabel
  176. #    But Verify does one, so we do tarnum now, and the other one after
  177. #    the VerifyOnly branch
  178.  
  179. #label.  
  180.     &ForwardSpaceTape( $tarnum );
  181.     if ($ErrorCode != 200) {
  182.         print "Failed to move past existing files on tape.\n";
  183.         print "Error Code: $ErrorCode.\n";
  184.         &ErrorTranslate($ErrorCode);
  185.         &Quit;
  186.         }
  187.  
  188.     if ($VERIFYONLY) {goto VERIFY;}
  189.     &ForwardSpaceTape(1);
  190.  
  191. #
  192. # and then back to the front end of the tapemark.
  193. # We erase, because this may be a restarted script.
  194. #
  195.     &BackSpaceTape(1);
  196.     &EraseRestOfTape;
  197.         
  198. # Ok, tape is positioned, now make the backups.
  199. # Each backup is made from the parent directory of it,
  200. # to make it easier to place recovered files in arbitrary places.
  201. #
  202.     foreach $direct ( @DirList ){
  203.         print "\n\nStarting backup of directory $direct. \n";
  204.         # $DirList has been converted to absolute pathnames.
  205.         &TarDir($direct);
  206.     }    # End Foreach
  207.  
  208. #     =========================================================    #
  209. #                Reposition tape and compare
  210. #     =========================================================    #
  211. print "Backing up to today's starting point.\n";
  212. $BErrorCode = &BackSpaceTape($tarnum - $FilesOnTape +1 );
  213.  
  214. #+1? Yeah.  After writing, the tape is just after a tape mark. 
  215. # So it takes 1 to get at the front of that mark, then one for each
  216. # of the tars added (tarnum - filesontape)
  217.  
  218. $tarnum =  $FilesOnTape;
  219. # Tarnum should always be the number of marks to move, from the beginning
  220. #of the tape to get to the mark immediately before the current working
  221. #location. 
  222. #At this point we should be at the BOT side of the tape of the last tar
  223. #previously written on the tape.  Remember that verify starts with an fsf.
  224.  
  225.         
  226. VERIFY:{    
  227.     foreach $direct ( @DirList ){
  228.         &VerifyDir($backdir,$direct);
  229.         }    # End Foreach
  230.     }    # End VERIFY
  231.  
  232. # =========================
  233. #
  234. #  Housekeeping:
  235. # Take tape offline.
  236. #
  237.     print "Ok, all done.  Please pick up your tape.\n";
  238.     &Quit(0);
  239. #
  240.  
  241.